home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / BASCAPS.LIT < prev    next >
Text File  |  1990-01-13  |  812b  |  14 lines
  1. *[BASCAPS.LIT]****************************************************************
  2. * Description: Froces use of BASIC for upper/lower conversion.               *
  3. * RBBS-PC Level: CPC17.2B                                                    *
  4. * Module Affected: RBBSSUB3.BAS                                              *
  5. * Selection Option: ASMCAPS = OFF                                            *
  6. * Additional files: ASMCAPS.LIT                                              *
  7. ******************************************************************************
  8. 58050 SUB AllCaps (ConvertField$) STATIC
  9.       FOR WasZ = 1 TO LEN(ConvertField$)
  10.          IF MID$(ConvertField$,WasZ,1) > "@" THEN _
  11.             MID$(ConvertField$,WasZ,1) = CHR$(ASC(MID$(ConvertField$,WasZ,1)) AND 223)
  12.       NEXT
  13.       END SUB
  14.